Top 10k strings from Video Basic - Issue 11 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
7 ;" VX "
5 ;" R " ;
4 A$="PON EN MARCHA LA GRABADORA":
4 ;"CAPS SHIFT+
4 ;" R " ;
4 "4";"ESTA BIEN ESCRITO ? (S/N)";
4 "23606",z:
4 "23296"+N,
4 "10",z;" PARA LA GRABADORA ":
4 " | "
3 t$=" PULSA UNA TECLA PARA CONTINUAR "
3 t$(2)-48":
3 U;" ";N$;" "
3 # ###################### #
3 "9",N;" ~|";
3 "8",N;A$(N-2
3 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
3 "10",N;" \]"
3 PASO A LA PARTE";
2 t$(3)-48":
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBREAK: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 T$=" ELIGE, "+N$+":":
2 LETREROS ENTRANTES
2 LEE LOS UDG
2 HOMBRECILLO
2 ;"VIDEOBASIC":
2 ;"READDATAIN":
2 ,XX;" ";
2 "BIEN, "+N$+"
2 "6";" SIGUIENTE"
2 "44::>@@"(i)-
2 "23617",Z:
2 "126-XL/2",
2 "10-a/2",U;
2 "0606006"(i)+
2 "(21-YP)*8-2":
2 VUELTA AL PRINCIPIO";
2 SOFTIDEA (Como)
2 PARA LA GRABADORA
2 CINTA ADELANTE
2 * *
2 PARA LA GRABADORA
2
1 yp=yp+(t$(i)="b")-(t$(i)="a"):
1 y(n)=y(n+1
1 y$=" PULSA UNA TECLA PARA CONTINUAR ":
1 xp=xp+(t$(i)="d")-(t$(i)="s"):
1 w$="DESPUES DE ESTA LECCION, ME ENCUENTRO ALGO CANSADO, QUISIERA DESCANSAR UN POCO. "
1 u;"I=VAR.CON. N=VAR.AUX. C$=CAR."
1 u;"EXACTO !":
1 u;" ":
1 u+u;"<G$> "
1 t$(u+u)-48":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48)*4+2":
1 t$(3)-48",
1 t$(2)-48)*8+2":
1 t$(2)-48";
1 p;" ":
1 p;" ":
1 p$="y el Lapiz Optico ":
1 p$="los temas de la leccion ":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="Trazamos un Grafico ":
1 p$="READ - DATA - RESTORE ":
1 p$="Qix ":
1 p$="PLOT * DRAW ":
1 p$="La Tableta Grafica ":
1 p$="Juego de adivinanzas sobre ":
1 p$="Globos ":
1 p$="En el proximo numero... ":
1 p$="El Serpienton ":
1 p$="El Robot ":
1 p$="El Ordenador Cansado ":
1 p$="Definicion de los UDG ":
1 p$="Caracteres Graficos (UDG) ":
1 n;" ":
1 copy=23760
1 b$=b$+(w$(j)
1 attr=23813
1 a;" ":
1 a$="LA PROGRAMACION":
1 a$=" ":
1 YY,XX;" ";
1 Y1,X1;" ";
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y$="* PULSA UNA TECLA PARA CONTINUAR *"
1 Y$=" PULSA UNA TECLA PARA CONTINUAR":
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 X<21)+(30-X)*(X>20)"):
1 X,Y;T$(N):
1 X+C2)=" "
1 W$="UN SISTEMA MECANICO DIRIGIDO PORORDENADOR SE DEFINE GENERALMENTECOMO <ROBOT>. MATIZANDO, EL <ROBOT> ES UNA MA-QUINA CAPAZ DE EJECUTAR ALGUNASACCIONES PROGRAMADAS."
1 W$="UN EJEMPLO ESQUEMATICO DE UN RO-BOT PUEDE SER EL QUE ESTA DIBU-JADO EN LA PARTE SUPERIOR: UNBRAZO CON UNA MANO.":
1 W$="QUIERES VER DE NUEVO LA LECCION (S/N) ?":
1 W$="QUIERES VER DE NUEVO EL EJEMPLO(S/N) ?":
1 W$="QUIERES QUE REPITA EL EJEMPLO(S/N)?":
1 W$="PON EN MARCHA LA GRABADORA ":
1 W$="PARA LA GRABADORA ":
1 W$="NORMALMENTE SE LOS EMPLEA PARAREALIZAR AQUELLAS TAREAS MECANI-CAS QUE PUEDEN SER PERJUDICIALESPARA EL HOMBRE (COMO EL BARNIZA-DO DE AUTOMOVILES, EL TRATAMIEN-TO DE SUSTANCIAS TOXICAS, ETC..)":
1 W$="HE AQUI UN EJEMPLO PRACTICO:":
1 W$="HE AQUI UN EJEMPLO DE ARTICULA-CION GUIADA POR ORDENADOR: ":
1 W$="EL SPECTRUM HACE AVANZAR EL MO-TOR, EL BRAZO SE LEVANTA Y ELPOTENCIOMETRO INDICA LA POSICIONDEL BRAZO.":
1 W$="EL ROBOT ESTA FORMADO POR UNASERIE DE ARTICULACIONES Y DE MO-TORES ELECTRICOS, QUE PERMITENSU MOVIMIENTO.":
1 W$="DE ESTA FORMA, ACTUANDO SOBRECADA ARTICULACION, ES POSIBLEMOVER EL ANTEBRAZO.":
1 W$="AHORA, ESTOY LISTO PARA EMPEZAR":
1 W$=" "+W$+" "
1 Via Indipendenza 88
1 Via Indipendenza 88
1 VIT=C4+(LV>C6)
1 VISUALIZACION BLOQUE
1 VIDEOTEST
1 VIDEONEXT
1 VIDEOLIST l
1 VIDEOHARD
1 VIDEOBREAKq
1 VIDEOBASIC N.11
1 U;"USR""X""+..":
1 U;"OTRA VEZ..":
1 U;"OTRA VEZ !":
1 U;"MEMORIA":
1 U;"ESTA ES LA INSTRUCCION EXACTA:":
1 U;"ERROR !":
1 U;"DESPLAZA EL CURSOR CON <5678>","PON UN PUNTO CON <K>","QUITALO CON <J>",,"PULSA <0> CUANDO HAYAS TERMINADO"
1 U;"CARACTERES PREDEFINIDOS":
1 U;" PRINT BIN 1 ----------> 1"''" PRINT BIN 10 ---------> 2"''" PRINT BIN 10101010 ---> 170"''" ...Y ASI SUCESIVAMENTE.":
1 U;" ..HE AQUI COMO FUNCIONA"," <READ-DATA>",''':
1 U+U,XP;A$;
1 TIPO DE MOTORES QUE ACCIONANUN ROBOT ELECTRICOS
1 TIPO DE MEMORIA QUE GUARDA ELJUEGO DE CARACTERES ROM
1 TABLA.TEST
1 TAB. READ
1 T$="YA NO TE QUEDA MAS QUE ESCRI-BIR UNA SERIE DE <POKE>, LOS 8VALORES DE LAS POSICIONES DEMEMORIA QUE VAN DESDE <USR""X"">A <USR""X""+7> Y EL NUEVO CARAC-TER GRAFICO ESTARA LISTO!":
1 T$="SI DESEAMOS DEFINIR CARACTERESGRAFICOS A NUESTRO GUSTO, ESNECESARIO ESCRIBIR LA FORMA DEDICHOS CARACTERES EN EL AREADE MEMORIA RESERVADA PARAELLO.":
1 T$="QUIZAS SEA MEJOR QUE VUELVAS ALEER EL PROGRAMA, Y LO INTEN-TES DE NUEVO.":
1 T$="QUE DEVUELVE LA DIRECCION DELPRIMER BYTE DEL CARACTER GRA-FICO <A>.":
1 T$="PUESTO QUE CADA BYTE QUE COM-PONE LOS CARACTERES GRAFICOSREPRESENTA UN PUNTO DE TINTA,ES MUY COMODO INDICAR DIRECTA-MENTE LOS <8> BYTES EN FORMABINARIA, USANDO LA FUNCION<BIN> QUE CONVIERTE LAS SERIESDE UNOS Y CEROS EN SUS CORRES-PONDIENTES NUMEROS DECIMALES.":
1 T$="PRINT USR ""A""":
1 T$="POKE USR ""C"",255":
1 T$="PARA OBTENERLO, TENDRAS QUESITUAR EL TECLADO EN MODO GRA-FICO (CAPS SHIFT+ 9 O SIMPLE-MENTE LA TECLA <GRAPH> EN EL*PLUS*), Y PULSA LA LETRA QUEHAYAS ESCOGIDO PARA REPRESEN-TARLO (ES DECIR, LA QUE APARE-CIA EN <USR>).":
1 T$="INTENTA ESCRIBIR LAS INSTRUC-CIONES QUE TE VAYA PIDIENDO. ESTOY SEGURO QUE NO ENCONTRASGRANDES DIFICULTADES.":
1 T$="IGUALMENTE:":
1 T$="ESTOS CARACTERES SE OBTIENENSITUANDO EL TECLADO EN MODOGRAFICO E INTRODUCIENDO EL NU-MERO INDICADO (+ CAPS SHIFTPARA LA LINEA INFERIOR).":
1 T$="ESCRIBIRA <255> EN EL PRIMERBYTE CORRESPONDIENTE AL CARAC-TER <C>.":
1 T$="ELIGE, "+N$+":":
1 T$="CADA CARACTER OCUPA <8> BYTESY SE IDENTIFICA CON UNA LETRADE LA <A> A LA <U>. SU LOCALI-ZACION DE MEMORIA SE OBTIENECON LA FUNCION <USR>.":
1 T$="AHORA, "+N$+"":
1 T$="ADEMAS DE LOS CARACTERES<ASCII>, EXISTE EN EL SPECTRUMLA POSIBILIDAD DE USAR OTROSDISTINTOS: ALGUNOS PREDEFINI-DOS Y LOS DEMAS A DISPOSICIONDEL USUARIO.":
1 T$=" ELIGE, {:":
1 SOFTIDEA (Como)
1 SCROLL=23828
1 S$=W$(G+31
1 RUTINA MAQUINA DE ESCRIBIR
1 REGISTRO DEL NOMBRE
1 READ DATA
1 PUNT=PUNT+BONUS:
1 PUNT=PUNT+
1 PUNT);PUNT;
1 PROGRAMA
1 PORTADA
1 PON EN MARCHA LA GRABADORA
1 PANTALLA
1 PAGINA=PAGINA+1
1 P$="VIDEONEXT":
1 P$="VIDEOLIST":
1 P$="VIDEOBASIC-EL LENGUAJE: ":
1 P$="USR - BIN ":
1 P$="Generador de Caracteres ":
1 P$="CIRCLE * POINT ":
1 P$=" en el numero 12 ":
1 OBSERVA QUE ENCIMA DEL DIAGRA-MA ESTAN INDICADOS LOS 8 VALO-RES QUE CONSTITUYEN EL CARAC-TER QUE TU HAS FORMADO.",""
1 O,i;A$(i-2
1 NUMERO DE PIXELS QUE OCUPA UNCARACTER 64
1 N$=N$+" ":
1 MAQUINA CONTROLADA POR UN OR-DENADOR ROBOT
1 M-15343-1985
1 LETREROS ROTATORIOS
1 LETRERO ROTATORIO
1 LEE INFORMACIONES CONTENIDASEN EL PROGRAMA READ
1 JUEGO j
1 INTRO. UDG
1 INT.JUEGO
1 INGELEK JAKSON
1 I","04C DATA ","#813","2B60
1 HAS CONSEGUIDO REALIZAR TODOSLOS PASOS QUE CONDUCEN A LAREDEFINICION DE UN CARACTERGRAFICO.
1 G$(I)"''"40
1 F$(I)","INTRODUCE EN EL ELEMENTO <I>","DE LA MATRIZ <F$>,","UN VALOR LEIDO DESDE <DATA>.",""
1 ES CORRECTO LEER UN DATO NUME-RICO CON <A$> NO
1 EL GRUPO <READ...DATA> SIRVEPARA ESTABLECER VARIABLES CONINFORMACIONES CONTENIDAS DI-RECTAMENTE EN EL PROGRAMA.% %EL EFECTO PRODUCIDO ES IDENTI-CO AL QUE OBTENDRIAS CON UNASERIE DE <LET>, PERO MAS CLAROY CONCISO.% %LO ACLARARE CON UN EJEMPLO:SUPON QUE TIENES QUE ESCRIBIRUN PROGRAMA, EN EL QUE SE IM-PRIMA EL NUMERO DEL MES EN-FRENTE DE SU CORRESPONDIENTENOMBRE. TE ENCONTRARIAS EN UN DETERMI-NADO PUNTO,CON LA NECESIDAD DEESTABLECER UNA MATRIZ (M$) CONLOS NOMBRES DE LOS MESES (ENE,FEB, MAR, ETC), DE MODO QUE& &10 PRINT M$(MES)& &PRODUCE EL EFECTO DESEADO.% %OTRA FORMA DE CONSEGUIRLOSERIA:& &10 LET M$(1)="ENE" 20 LET M$(2)="FEB" 30 ...& &ES VALIDO Y FUNCIONA SIN NIN-GUN PROBLEMA. PERO EXISTE UNSISTEMA MUCHO MAS CLARO Y CON-CISO:& &10 FOR I=1 TO 12 20 READ M$(I) 30 NEXT I 40 DATA "ENE", "FEB", "MAR"..%EN
1 EJERCICIOS;
1 DEVUELVE LA LECTURA DE <DATA>A LA LINEA INDICADA RESTORE
1 DESPUES ESCRIBIREMOS JUNTOSUNA RUTINA QUE LO INTRODUCIRAEN LA MEMORIA.",""
1 CUANTOS BYTES SON NECESARIOSPARA DEFINIR UN CARACTER 8
1 CREA UDG
1 CONTIENE LAS INFORMACIONES ALEER CON <READ> DATA
1 CIENCIA QUE SE OCUPA DEL ESTU-DIO DE LOS AUTOMATAS ROBOTICA
1 CC-AA,DD-BB,EE:
1 CAR UDG
1 CAR TEST
1 CAR READ
1 CAR PROG.
1 CAR NEXT
1 CAR LIST
1 CAR JUEGO
1 CAR INUDG
1 CAR INJUG
1 CAR HARD
1 CAR EJER.
1 CAR BREAK
1 C4,X;" ":
1 C2;G$(C2);G$(
1 C$(Y,X)=" "
1 C$","*1 ","045 ABRE ","046 CICLO ","#823","2520
1 BONUS=BONUS-
1 BONUS<1000
1 B$="------------"
1 AHORA INTENTA ESCRIBIR EL PRO-GRAMA EN BASE AL DIAGRAMA DEFLUJO .
1 ADEMAS HAS APRENDIDO EL USOCORRECTO DE LAS INSTRUCCIONES<READ-DATA>."
1 AD=II+X*256
1 AA,BB,CC,DD,EE:
1 A;" "
1 A)+(" "
1 A$="VIDEOTEST ":
1 A$="RESTORE":
1 A$="READ-DATA-RESTORE-UDG":
1 A$="READ - DATA - RESTORE":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$="ELIGE EL NIVEL DE DIFICULTAD":
1 A$="CARACTERES GRAFICOS (UDG)":
1 A$=" PON EN MARCHA LA GRABADORA":
1 A$=" ESTA BIEN ESCRITO, "+N$+"?":
1 A$=" <1> JUEGO * <2> CAMBIO DE NOMBRE * <3> VIDEONEXT * <4> FIN *"
1 A$=" *PULSA UNA TECLA"
1 A$=" *PULSA UNA TECLA PARA CONTINUAR"
1 A$=" ESCRIBE TU NOMBRE EN EL":
1 A$=" TECLADO Y PULSA ENTER":
1 A$=" CARGO VIDEONEXT":
1 A$,MES","INTRODUCE LAS INFORMACIONES","LEIDAS DESDE <DATA> EN <A$>","Y <MES>.",""
1 ;N$;" ? (S/N)"
1 ;"y quita la alimentacion a tu";
1 ;"ejemplos y ejercicios";
1 ;"Y PULSA <ENTER>":
1 ;"VIDEOBASIC"
1 ;"UDGINTRO":
1 ;"UDGINTRO"
1 ;"TU PUNTUACION ES ";s;" SOBRE 20."
1 ;"TE HAN CAPTURADO! TIENES ";VIT;" VID";("A "
1 ;"SPECTRUM. Hasta pronto,";
1 ;"READDATAIN"
1 ;"Q VX OP"
1 ;"Q VX "
1 ;"PUNTOS 000000 %%% TIEMPO 0";BONUS
1 ;"PULSA UNA TECLA PARA CONTINUAR":
1 ;"PREGUNTA N. ";w
1 ;"PQ VX O"
1 ;"PQ VX "
1 ;"PARA MEJORAR, VUELVE A LEER";
1 ;"OTRA VEZ"
1 ;"OPQ VX "
1 ;"NOMBRE DE LOS UDG: ...........";
1 ;"NO TE PUEDO AYUDAR":
1 ;"NIVEL NUM. 0";LV;" **** RECORD 0";("0"
1 ;"N STUW LM" ;
1 ;"N STUW " ;
1 ;"Muy bien, enhorabuena!"
1 ;"MUY BIEN ";n$;
1 ;"MN STUW L" ;
1 ;"MN STUW " ;
1 ;"La respuesta correcta es:";
1 ;"LMN STUW " ;
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"HASTA PRONTO";
1 ;"HAS TERMINADO EL NIVEL NUM. ";("0"
1 ;"Guarda la cinta en su caja";
1 ;"ESCRIBE TU NOMBRE";
1 ;"ES EXACTO."
1 ;"EN EL TECLADO";
1 ;"EN CASO DE ERROR PULSA: 'RUN 9' "
1 ;"CUIDADO!! COGE UNA CINTA QUE NOSEA DE <VIDEOBASIC> PARA SALVARLOS CARACTERES. PODRIAS DESTRUIRTU CURSO DE BASIC!!!!!"
1 ;"COPYRIGHT1985 - SOFTIDEA(COMO)":
1 ;"ABCDEFGHIJKLMNOPQRSTU"
1 ;"- - - - - -"''':
1 ;"""";i$;""" esta equivocado."
1 ;" QUE HORROR! TE HAN DESTRUIDO ":
1 ;" PON EN MARCHA LA GRABADORA "
1 ;" PON EN MARCHA LA GRABADORA PULSA UNA TECLA "
1 ;" OPQ VX "
1 ;" LMN STUW " ;
1 ;" ESTE PROGRAMA TE PERMITE CREAR CON TODA FACILIDAD, CARACTERES GRAFICOS REDEFINIBLES: LOS (UDG)."
1 ;" A TU IZQUIERDA TIENES LA CUA- DRICULA DE 8*8, Y DESPLAZAN- DOTE CON LAS TECLAS DE CUR- SOR, PUEDES ENCENDER O APAGAR LOS PIXELS DEL CARACTER."
1 ;" A TU DERECHA TIENES LA REPRE- SENTACION (NORMAL O INVERTIDA) Y <EN GRUPO> DEL CARACTER. LOS COMANDOS DISPONIBLES ESTAN EN LAS PRIMERAS LINEAS DE LA PAN- TALLA.":
1 ;" SIGUIENTE"
1 ;" OPQ VX "
1 ;" LMNSTUW " ;
1 ;" ESTA BIEN ESCRITO,";
1 ;" CINTA PARADA ":
1 ;" OPQTUW " ;
1 ;" LMN " ;
1 ;" OPQUW " ;
1 ;" LMN " ;
1 ;" STUWOPQ" ;
1 ;" STUW LMN" ;
1 ;" STUW " ;
1 ;" STUOPQ " ;
1 ;" STOPQ " ;
1 ;" SOPQ " ;
1 ;" RLMN " ;
1 ;" R LMN " ;
1 ;" R LMN " ;
1 ;" R LMN" ;
1 ;" OPQW " ;
1 ;" LMN " ;
1 ;" VX OPQ"
1 ;" VX "
1 ;" PARA LA GRABADORA ":
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" ";
1 ;" "
1 ;" "
1 ;" ";
1 ;" ";
1 ;" ":
1 ;" ";
1 ;" ":
1 ::::::::::::(888888(((((((HHH(
1 ::::::::::999988999999999999999
1 ::::::::::999988999999999998888
1 ::::::::::998888899999999998888
1 ::::::::::988888888999999998888
1 ::::::::::(888888(((((((HHH
1 :::::::::9999889999999999999999
1 ::::::::99999999999999999999999
1 :::::::8888888888888888888888888888888888888888888888888888888888888888-
1 :::22222:::::(888888(((((((H
1 5TRADUCCION
1 43 - FASE DE OUTPUT","CUAL ES EL RESULTADO FINAL ?",""
1 23688/2-U"
1 23688+x)>31"
1 22 - FASE DE CALCULO","COMO ASIGNAREMOS EL CARACTER?",""
1 2 ELABORACION ","049 LEE ","04: DATA ","#82;","2930
1 1200","SI <K>=<3> SE INICIA LA","LECTURA DE LAS <DATA>","DESDE LA LINEA <1200>",""
1 1100110011001100","IMPRIME EL VALOR DECIMAL","DEL NUMERO BINARIO","<1100110011001100>",""
1 11 - FASE DE INPUT","CUALES SON LOS ELEMENTOS NECE-SARIOS EN EL PROBLEMA ?",""
1 1 I N P U T ","042INTROD. ","043CARACT. ","#820","2310
1 000000000000000000000000000000000000000000000000000000000000000000000000001111111111111021100000000000000211111111111112211000000000000002222222222222222110000000000000022222222222222221100000000000000000000000000000000000000666666666600000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888
1 ...................................
1 -J/A,ER+J/A*.7
1 - Formacion del propio carac-ter.",""
1 - Caracter a asignar;
1 ,XX;" ":
1 ,T;P$;" ":
1 ,T;" ";P$:
1 ,O;"PARTE SIGUIENTE";
1 ,C6;" RECORD ";H$(
1 +I,N","02ACIERRA CICLO","<<1;","2A50
1 **AYUDA II INTENTO**
1 ***respuesta flash***
1 ***puntuacion***
1 ***pulsa una tecla***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***CLS BAJO***
1 *** G L O B O S ***
1 );" 0";TOP;" "
1 )-(Y+VL=21
1 )+C2*(Y+VL=20
1 ));q$(q,65
1 (I/2)";" ";
1 ((((((((((((((((((::::::::::::::((((((((((((((((((::::::::::::::((((((((((((((((((::::::::::::::((((((((((((((((((::::::::::::::((((((((((((((((((::::::222:::::((((((((((((((((((::::22222:::::((((((((((((*****(::::20022:::::((((((((((((*****(:::::0022:::::(((((((((((((****(:::::0002:::::(((((((((((((((..+::::2000222:::((((((((((((((((++::::2000222:::((88888((((((((+++::::2220222:::(888888(((((((((((
1 # ######################
1 "xg+xs/2",yg+ys*
1 "VIDEOBASIC."
1 "TECLAS: "
1 "SU ASTRONAVE, Y AHORA ESTA EN"
1 "RESTORE 1000+200*ELIGE","HE AQUI UN SISTEMA MUY USADOPARA DIRECCIONAR AUTOMATICA-MENTE GRUPOS DE <DATA>, EN BA-SE AL CONTENIDO DE LAS VARIA-BLES.",""
1 "RESPUESTA = ";
1 "RECE! TENDRAS QUE EVITAR UNOS"
1 "READ A$,NUM,G(IND)","<READ> PUEDE CONTENER AL MISMOTIEMPO VARIAS VARIABLES, QUESERAN ESTABLECIDAS SECUENCIAL-MENTE POR LAS <DATA> QUE DEBE-RAN SER DEL TIPO ADECUADO.",""
1 "PRINT BIN 10021100","ESTA ES UNA INSTRUCCION ERRO-NEA! UN ARGUMENTO BINARIO NOPUEDE CONTENER VALORES DISTIN-TOS DE <0> O <1>.",""
1 "POKE USR ""B"",BIN 11001000","ESTE ES UN SISTEMA MUY USADOPARA INDICAR CON MAYOR FACILI-DAD LAS LINEAS DE LOS CARACTE-RES GRAFICOS.",""
1 "ORBITA ALREDEDOR DE UN PLANETA"
1 "MENTAN CON EL NIVEL DE DIFI-"
1 "Los datos necesarios son:
1 "LA TINTA ESTA REPRESENTADA POR<1>, EL PAPEL POR <0>.","LEYENDO EN FORMA BINARIA LASECUENCIA DE <0> Y <1> QUEFORMAN CADA LINEA, OBTENDREMOSLOS 8 VALORES A MEMORIZAR..."
1 "INTENTAR REPOSTAR."
1 "Empleando un ciclo FOR-NEXT,introduciremos los 8 bytes quelo constituyen en el area dememoria reservada a los UDG.",""
1 "El resultado final consiste endisponer de un nuevo caractergrafico definido a tu gusto.","",""
1 "ES EL PERSONAJE <PROGRAMA> DE"
1 "EN PRIMER LUGAR, POR MEDIO DEUN <EDITOR> SENCILLO DIBUJARASUN CARACTER A TU GUSTO.
1 "DESCONOCIDO, DONDE TIENE QUE"
1 "DATA SGN(Y),""BASIC"",3*B+2","DE IGUAL MANERA, EL CONTENIDODE LAS <DATA> SERA DESARROLLA-DO (SI FUERA NECESARIO) Y USA-DO PARA ESTABLECER LAS VARIA-BLES EN <READ>.",""
1 "CULTAD DEL JUEGO."
1 "CADA CARACTER...","...ESTA COMPUESTO POR 8 LI-NEAS, Y CADA UNA DE LAS CUALESESTA FORMADA POR 8 PUNTOS."
1 "AHORA, "+N$+"","TRANSFORMAREMOS EL ANALISISANTERIOR EN UN DIAGRAMA DEFLUJO, DESPUES A INSTRUCCIONES<BASIC>.",""
1 "AHORA, "+N$+"","REALIZAREMOS TODAS LAS OPERA-CIONES NECESARIAS PARA DEFI-NIR UN CARACTER GRAFICO (UDG).",""
1 "<GLOBOS AEROESTATICOS> QUE AU-"
1 "7";" ESTOY CARGANDO VIDEOTEST":
1 "7";" ";"...C... ...D..."(I+U);" ":
1 "6";"USR ""D""+";I:
1 "6";"USR ""C""+";I:
1 "6";"PULSA";
1 "6";" ";I-U;" "
1 "6"," ":
1 "5";" ":
1 "5")+("15 "
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "4";"BIN";
1 "4";"8 1 2 3 4 5 6 7";
1 "4";"7 6 5 4 3 2 1 8";
1 "4");"-->";
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"LUNMARMIEJUEVIESABDOM"(
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "28";"SHF"'''
1 "28";"CAP";
1 "28"-J/A,ER+J/A*.7
1 "26";I;" ";
1 "23658",K8:
1 "23617",u:
1 "23617",U:
1 "23295+I",
1 "2";"=";("240"
1 "19"+LV;S$(
1 "18",C7;"ENTER PARA TERMINAR":
1 "16";"-->";
1 "15",C5;"<----
1 "127-XL/2",
1 "10000");TOP;"GASOLINA";
1 "100"*(T$(
1 "10+i";"+":
1 "10";"VIDEOBASIC":
1 "10";"OTRA VEZ !":
1 "10";"ERROR !";
1 "04= MEMOR. ","04>EN <UDG>","#82;","2=40
1 ".05",I*J:
1 ".01",A-C2:
1 ".01",A+C2:
1 "...TE ESTAS HACIENDO CADA VEZ MAS EXPERTO!! ESTOY SEGUROQUE SIGUES CON MAYOR FACILIDADLOS EJEMPLOS MAS COMPLICADOS!!",""
1 "," VERIFICA",
1 "," SELECCIONA",
1 "," SALVA ",
1 "," PARA TERMINAR",
1 "," ENCENDER PIXEL",
1 "," CURSOR IZQUI.",
1 "," CURSOR DERECHA",
1 "," CURSOR ARRIBA ",
1 "," CURSOR ABAJO",
1 "," CARGA ",
1 "," APAGAR PIXEL",
1 "*1 ","% "
1 "(MAX. 10 CARACTERES) ";
1 ""VIE"""''"
1 ""SAB"",""DOM"""
1 ""S""","IMPRIME LA DIRECCION DE LA","LOCALIZACION DE MEMORIA","CORRESPONDIENTE AL UDG <S>",""
1 ""MIE"",""JUE""
1 ""LUN"",""MAR""
1 ""A""+2,255","INTRODUCE LA TERCERA LINEA","DEL CARACTER GRAFICO <A>","COMPUESTA DE 8 PUNTOS DE","TINTA",""
1 "","",""," QUE TE DIVIERTAS! ","","",""
1 ""," PARA JUGAR USA LAS SIGUIENTES"
1 ""," <Q> "
1 " SE HA QUEDADO SIN GASOLINA EN"
1 " PERO NO ES TAN FACIL COMO PA-"
1 " EL PROTAGONISTA DE ESTE JUEGO"
1 " PREPARACION DE UN "," CARACTER GRAFICO"
1 " <O>--*--<P> "
1 " <A> "
1 Tel.031-240.959
1 REPETIR";
1 PULSA UNA TECLA PARA CONTINUAR
1 PON EN MARCHA LA GRABADORA
1 INTRODUCCION";
1 GIRA EL BRAZO
1 EJERCICIOS";
1 EJERCICIO"
1 CREA UDG
1 COPYRIGHT 1985
1 CIERRA LA MANO
1 CARGO LA";
1 CARGAR EL VIDEOJUEGO";
1 BIEN! HAS SUPERADO EL RECORD!
1 AL BASIC ":
1 ** ***********************
1 ** ** ** **
1 Tel.031-240.959
1 S O F T I D E A
1 PARA LA GRABADORA
1 D A T A
1 CINTA PARADA
1 ABRE LA MANO
1 Pon en marcha la grabadora
1 COPYRIGHT 1985
1 PARA LA GRABADORA
1 C O M O
1 **
1 ":
1 ###################### #
1 *********************** **
1
1
1
1
1